home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU15.ARC / RELOCATE BLOCK (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  828 b   |  29 lines
  1. 10 REM DIRECTORY REPAIR BY P.J. MYERS
  2. 20 POKE53280,0:POKE53281,0:POKE646,1:S$=CHR$(32):DIM S(20)
  3. 30 PRINT"[147]            RELOCATE BLOCK"
  4. 40 PRINT"INSERT SOURCE[146] DISK"
  5. 50 INPUT"ENTER FROM TRACK(1-40),SECTOR ";T,S
  6. 60 IF T<1 OR T>40 OR S>20 THEN 40
  7. 70 OPEN15,8,15,"I0":GOSUB200
  8. 80 PRINT#15,"M-W";CHR$(6);CHR$(0);CHR$(2);CHR$(T);CHR$(S)
  9. 90 PRINT#15,"M-W";CHR$(0);CHR$(0);CHR$(1);CHR$(128):GOSUB 230
  10. 100 CLOSE15
  11. 110 PRINT"INSERT DESTINATION[146] DISK"
  12. 120 INPUT"ENTER TO TRACK(1-40),SECTOR ";T,S
  13. 130 IF T<1 OR T>40 OR S>20 THEN 110
  14. 140 OPEN15,8,15,"I0":GOSUB200
  15. 150 PRINT#15,"M-W";CHR$(6);CHR$(0);CHR$(2);CHR$(T);CHR$(S)
  16. 160 PRINT#15,"M-W";CHR$(0);CHR$(0);CHR$(1);CHR$(144):GOSUB230
  17. 170 PRINT#15,"I0":GOSUB200
  18. 180 CLOSE15
  19. 190 PRINT"JOB COMPLETE":END
  20. 200 INPUT#15,A$,B$,C$,D$
  21. 210 IF B$="OK"THEN RETURN
  22. 220 PRINT""A$;S$;B$;S$;C$;S$;D$:GOTO280
  23. 230 PRINT#15,"M-R";CHR$(0);CHR$(0)
  24. 240 GET#15,A$:A=ASC(A$+CHR$(0))
  25. 250 IF A=>128 THEN 230
  26. 260 IF A=1 THEN RETURN
  27. 270 PRINT"DISK ERROR:";A;" TRACK";T;" SECTOR";S
  28. 280 PRINT"JOB FAILED[146]":END
  29.